home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / U-Z / WindowsMenu 1.0.cpt / WindowsMenu 1.0 / WindowsMenu / cards.xml < prev    next >
Encoding:
Text File  |  1991-06-14  |  8.6 KB  |  121 lines
  1. card_3026.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>3026</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2757</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3085.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>10</left>
  24.             <top>215</top>
  25.             <right>210</right>
  26.             <bottom>237</bottom>
  27.         </rect>
  28.         <style>roundrect</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <true /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Chicago</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Click me to Install</name>
  41.         <script>on mouseUp-- this button will install the WindowsMenu into the Start Using-- message heirarchy-- Use a copy of your home stack just to be safe.-- can't run installer on locked media or locked stackIf the cantModify of this stack is true thenAnswer "Sorry, but you can't use the WindowsMenu installer because"&&¬¨"either WindowsMenu is on a locked disk or it's CantModify property"&&¬¨"is set to TRUE.  Install off an unlocked version.  Once WindowsMenu"&&¬¨"has been installed, it can run while locked." with "Cancel"exit mouseUpend ifAnswer "Install WindowsMenu into your Home stack?" with "Yes" or "No"if it is "Yes" thenAnswer "Have you backed up your Home stack just in case?" with "Yes" or "No"if it is "Yes" thenset the lockscreen to trueset the lockmessages to trueput the userlevel into mySavedUserLevelset the userlevel to 5set cursor to busy-- go get the script of the home stackpush cardgo homeset cursor to busyput the script of this stack into myHomeScriptset cursor to busypop cardset cursor to busy-- put it into the temporary fieldput myHomeScript into card field "HomeScript"set cursor to busy-- find the Startup handler and insert the Start Using Command-- just before the end.  It must be after the GetHomeInfo handlerfind whole "On Startup" in card field "HomeScript"set cursor to busyfind whole "Pass Startup" in card field "HomeScript"set cursor to busyif the foundLine is empty thenAnswer "Unable to Install -- your Home stack has been modified!"set userlevel to mySavedUserLevelexit MouseUpend ifput return&"-- WindowsMenu ¬© 1991 by Paul M. Lemieux"&return&¬¨"Start Using Stack"&&quote&"WindowsMenu"&quote&return¬¨before the foundLineset cursor to busy-- go put our modified script back into the home stackput card field "HomeScript" into myHomeScriptset cursor to busyput empty into card field "HomeScript"push cardgo homeset cursor to busyset the script of this stack to myHomeScriptset cursor to busy-- finished!pop cardset cursor to busystop using this stackdoMenu "Compact Stack"set the userlevel to mySavedUserLevelstart using this stacksend openstack to this stackset the lockmessages to falseset the lockscreen to falseend ifend ifend mouseUp</script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>field</type>
  46.         <visible> <false /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <false /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <true /> </lockText>
  53.         <rect>
  54.             <left>9</left>
  55.             <top>79</top>
  56.             <right>408</right>
  57.             <bottom>211</bottom>
  58.         </rect>
  59.         <style>scrolling</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Monaco</font>
  69.         <textSize>9</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>12</textHeight>
  72.         <name>HomeScript</name>
  73.         <script></script>
  74.     </part>
  75.     <part>
  76.         <id>3</id>
  77.         <type>button</type>
  78.         <visible> <true /> </visible>
  79.         <reserved5> 0 </reserved5>
  80.         <reserved4> 0 </reserved4>
  81.         <reserved3> 0 </reserved3>
  82.         <reserved2> 0 </reserved2>
  83.         <reserved1> 0 </reserved1>
  84.         <enabled> <true /> </enabled>
  85.         <rect>
  86.             <left>214</left>
  87.             <top>215</top>
  88.             <right>407</right>
  89.             <bottom>237</bottom>
  90.         </rect>
  91.         <style>roundrect</style>
  92.         <showName> <true /> </showName>
  93.         <highlight> <false /> </highlight>
  94.         <autoHighlight> <true /> </autoHighlight>
  95.         <sharedHighlight> <true /> </sharedHighlight>
  96.         <family>0</family>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>0</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Chicago</font>
  101.         <textSize>12</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <name>Try It Out!</name>
  104.         <script>on mouseUpAnswer "Temporarily install WindowsMenu?  It will remain"&&¬¨"in operation until you quit HyperCard‚Ķ" with "Yes" or "No"if it is "Yes" thenstart using this stacksend openstack to this stackend ifend mouseUp</script>
  105.     </part>
  106.     <content>
  107.         <layer>background</layer>
  108.         <id>1</id>
  109.         <text>WindowsMenu 1.0¬© 1991 byPaul M. Lemieux</text>
  110.     </content>
  111.     <content>
  112.         <layer>background</layer>
  113.         <id>4</id>
  114.         <text><span class="style2">indowsMenu</span><span class="style1"> will add a </span><span class="style3">Windows</span><span class="style1"> menu to your HyperCard MenuBar.  It came about because I wanted to be able to start a time consuming script and be able to switch out of HyperCard while running System 7.  On a toaster Mac, the only way to do this is to click on the desktop once the script has started.The </span><span class="style3">Windows</span><span class="style1"> menu will enable you to shrink your windows to a predetermined size, and it will allow you to switch between all open stacks.  You can use the zoom box on the window to return it to its previous size.  If you don't like the size I have it shrink to, open the stack script and change the values of the rectangle defined in the </span><span class="style4">ShrinkIt</span><span class="style1"> handler.</span><span class="style2">WindowsMenu</span><span class="style1"> is a stack specifically meant to be placed inside the "Start Using" list of stacks who's scripts are accessible to all stacks within the message heirarchy.  Clicking the "Click me to Install" button will add a line to your Home stack's stack script to include </span><span class="style2">WindowsMenu</span><span class="style1">.  If your Home stack's stack script has been modified, it may be possible that the installation will fail.  If this is the case, then simply add the line </span><span class="style4">Start Using "WindowsMenu"</span><span class="style1"> inside the Startup handler of your Home stack script.  The line must be inserted after the </span><span class="style4">GetHomeInfo</span><span class="style1"> has been called.</span><span class="style2">WindowsMenu</span><span class="style1"> depends on stacks passing </span><span class="style4">OpenStack</span><span class="style1">, </span><span class="style4">CloseStack</span><span class="style1">, </span><span class="style4">ResumeStack</span><span class="style1">, and </span><span class="style4">SuspendStack</span><span class="style1"> messages on up the message heirarchy.  I trapped </span><span class="style4">CloseStack</span><span class="style1"> and </span><span class="style4">SuspendStack</span><span class="style1"> to remove the </span><span class="style2">WindowsMenu</span><span class="style1">.  That way the </span><span class="style2">WindowsMenu</span><span class="style1"> will attempt be the rightmost menu, which seems to be the conventional Mac user interface standard.  Of course, I have no control over other people's scripting so this might not always be the case.</span><span class="style2">WindowsMenu</span><span class="style1"> is postcardware, but I retain the copyrights to the software.  There is no charge, but if you like the software, please send me a postcard and let me know.  In the spirit of fair play in HyperTalk scripting, this stack is not protected in any way.Paul Lemieux905 Union StreetCary, NC 27511GEnie: P.Lemieux2AOL: PaulLXAppleSeeds BBSThe Raleigh Macintosh Users Group919-481-4896Over 700 Mb of Online Files(I am the Sysop)</span></text>
  115.     </content>
  116.     <name></name>
  117.     <script>on openCardset the scroll of bkgnd field "help" to 0end openCard</script>
  118. </card>
  119.  
  120.  
  121.